-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 3528
-- card count: 3
-- first card id: 3210
-- list block id: 2364
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 3
-- free size: 3936 bytes
-- total size: 24576 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x01228000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01258000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
--Haiku Maker Copyright © 1988 by Andrew C. Stone
--andrew C stone
-- 8/8/88

on haiku
  global UsedArray
  put empty into UsedArray
  put 0 into sylcount
  put 1 into whichFld
  put empty into cd fld verse of cd haiku
  repeat until sylcount > 12
    if whichFld is 4 then put return after cd fld verse
    if whichFld > 6 then
      put return after cd fld verse
      put 1 into whichFld
    end if
    put false into IsUnique
    repeat until IsUnique
      put(random(the number of lines of cd fld whichFld of cd phrases)) into lineNum
      put checkUnique(whichFld,lineNum) into IsUnique
    end repeat
    put " " & item 1 of line lineNum of cd fld whichFld of cd phrases after cd fld verse
    add item 2 of line lineNum of cd fld whichFld of cd phrases to sylcount
    add 1 to whichfld
  end repeat
  if (last char of cd fld verse <> ".") and (whichFld = 6 or whichFld = 7) then put "." & return after cd fld verse
  if sylcount = 13 then
    put " " & any line of cd fld foursyl of cd phrases after cd fld verse
  else if sylcount = 14 then
    put " " & any line of cd fld threesyl of cd phrases after cd fld verse
  else if sylcount = 15 then
    put " " & any line of cd fld twosyl of cd phrases after cd fld verse
  else put " " & any line of cd fld onesyl of cd phrases after cd fld verse
end haiku

function checkUnique whichFld,lineNum
global UsedArray
repeat with i = 1 to number of items in line whichFld of UsedArray
  if lineNum = item i of line whichFld of UsedArray then
    return false
  end if
end repeat
put lineNum into last item of line whichFld of UsedArray
return true
end checkUnique

on openstack
  hide menubar
  go first cd
  haiku
end openstack

on popUp thatField
  lock screen
  set visible of cd fld thatField to not visible of cd fld thatField
  unlock screen with dissolve
end popUp

on seeSaved
  visual scroll left
  go cd id 2066
end seeSaved
on goEdit
  visual scroll left
  go cd id 2796
end goEdit
on goHaiku
  visual scroll left
  go cd haiku
end goHaiku